home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD022c.dsk / PAL.13148.DAVIES.JUN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  51 lines
  1. 10  REM *******************
  2. 20  REM *                 *
  3. 30  REM *  SOFT-PAL PROG. *
  4. 40  REM *                 *
  5. 50  REM *   TIM DAVIES    *
  6. 60  REM *                 *
  7. 70  REM *******************
  8. 80  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  9. 90 D$ =  CHR$(13) + CHR$(4):ANS$ = "": RESTORE 
  10. 100  HGR : TEXT : HOME 
  11. 110  VTAB 10:ST$ = "...HANG ON...": GOSUB 190
  12. 120  PRINT D$"BLOAD COMPUTERS PROTEST"
  13. 130  HOME 
  14. 140  VTAB 1:ST$ = "---------------------------------------": GOSUB 190
  15. 150  VTAB 3
  16. 160 ST$ = "---------------------------------------": GOSUB 190
  17. 170  VTAB 2:ST$ = "* * WHAT A JOKE * *": GOSUB 190
  18. 180  POKE 34,4: VTAB 5: GOTO 200
  19. 190 L =  PEEK(37): FOR X = 1 TO 19 + LEN(ST$)/2: VTAB L +1: HTAB 40 -X: PRINT  LEFT$(ST$,X);" ";: NEXT : PRINT : RETURN 
  20. 200  READ ST$
  21. 210  IF ST$ = "END"  THEN  VTAB 22: PRINT "--> BRING ON THE JOKE! (PRESS J)": PRINT "--> FORGET IT!, BACK TO SOFTDISK (CR)";: GET ANS$
  22. 220  IF ANS$ = "J"  THEN  POKE  -16302,0: POKE  -16304,0: FOR TIME = 1 TO 3000: NEXT TIME: WAIT  -16384,128:ANS$ =  CHR$(13): REM  WAIT FOR A KEY PRESS
  23. 230  IF ANS$ =  CHR$(13)  THEN  TEXT : HOME : PRINT D$"RUN PAL.MENU"
  24. 240  IF ST$ < >"C"  AND ANS$ < > CHR$(13)  AND ANS$ < >""  THEN  PRINT : GOTO 210
  25. 250  IF ST$ = "PAGE"  THEN  POKE 37,19:ST$ = ""
  26. 260  IF  PEEK(37) >19  THEN  VTAB 23: HTAB 3: PRINT "PRESS THE ";: FLASH : PRINT "<SPACE BAR>";: NORMAL : PRINT " TO CONTINUE";: GET SB$
  27. 270  IF SB$ =  CHR$(32)  THEN  HOME :SB$ = ""
  28. 280  IF  PEEK(37) >19  AND SB$ < > CHR$(32)  THEN 260
  29. 290  GOSUB 300: GOTO 200
  30. 300 PT = 1
  31. 310 C = 0
  32. 320 WD$ = ""
  33. 330 X$ =  MID$ (ST$,PT,1):PT = PT +1: IF PT > LEN(ST$) GOTO 410
  34. 340  IF X$ < >" "  THEN WD$ = WD$ +X$: GOTO 330
  35. 350  IF C + LEN(WD$) = 40  THEN  PRINT WD$;: GOTO 310
  36. 360  IF C + LEN(WD$) = 39  THEN  PRINT WD$: GOTO 310
  37. 370 WD$ = WD$ +" "
  38. 380 C = C + LEN(WD$): IF C >40  THEN  PRINT :C =  LEN(WD$)
  39. 390  PRINT WD$;
  40. 400  GOTO 320
  41. 410  IF C + LEN(WD$) >40  THEN  PRINT 
  42. 420  PRINT WD$; RIGHT$(ST$,1): RETURN 
  43. 430  REM <CTRL-J><CTRL-J>DATA BELOW<CTRL-J><CTRL-J>
  44. 440  DATA  "  HERE'S A SMALL SAMPLE OF THE GIBSON LIGHT PEN'S WORK.  THIS WAS DONE BY ONE OF MY 9TH GRADE STUDENTS, PHILIP PETERMAN, INSTEAD OF EATING LUNCH..."
  45. 450  DATA 
  46. 460  DATA "      FROM:"
  47. 470  DATA 
  48. 480  DATA "       TIM DAVIES"
  49. 490  DATA "       2275 LOWER LAKE RD."
  50. 500  DATA "       SENECA FALLS, NEW YORK 13148"
  51. 510  DATA END